Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim  As Variant
    Dim  As String
    Dim  As Object
    
    On Error Resume Next
    
        If Target.MergeCells Then
    
             = "׸ (*.jpg;*.png), *.jpg;*.png"
             = Application.GetOpenFilename(, Title:="׸ ")
            
            If  = False Then
                MsgBox "׸  ʾҽϴ.", Title:=" ̺"
            Else
            
                Set  = ActiveSheet.Pictures.Insert()
            
                .Copy
                ActiveSheet.PasteSpecial Link:=False
                .Delete
                        
                With Selection.ShapeRange
                    .LockAspectRatio = msoFalse
                    .Top = Target.Top + 5
                    .Left = Target.Left + 5
                    .Height = Target.Height - 10
                    .Width = Target.Width - 10
                End With
                
            End If

        End If

End Sub
